home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / net / tf02.lha / TinyFugue / tf-lib / relog.tf < prev    next >
Text File  |  1995-08-12  |  393b  |  17 lines
  1. ;;; relog - recall into a log
  2. ; syntax:  /relog <file> <recall_arguments>
  3. ; Starts logging, and silently performs a /recall into the log file.
  4.  
  5. /~loaded relog.tf
  6.  
  7. /def -i relog = \
  8.     /def -i -hlog -1 -ag = /echo %%% Recalling to log file %1%;\
  9.     /log %1%;\
  10.     /quote -S /_relog %1 #%-1%;\
  11.     /unset _ARGS
  12.  
  13. /def -i _relog = \
  14.     /setenv _ARGS=%-1%;\
  15.     /quote -S !echo "$$_ARGS" >> %1
  16.  
  17.